home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Virtual User 1.0 / Example Scripts / LocalizeExample.vu < prev    next >
Text File  |  1991-01-25  |  2KB  |  67 lines
  1. #
  2. #    File:        LocalizeExample.vu
  3. #
  4. #    Contains:    An example on how to write your scripts so that they are adaptable
  5. #                to various international systems or application versions.  
  6. #                This script determines what system is running and determines 
  7. #                the appropriate string list resource for that system. Then if the 
  8. #                string list is found, it fetches the appropriate translation of the 
  9. #                "Quit" string for the system.  It then selects the "quit" menuitem 
  10. #                (or international equivalent) from the "file" menu using the fetched 
  11. #                string.  
  12. #
  13. #                To run this script successfully, you need to be running either a Kanji
  14. #                system or a U.S. 6.0.x or 7.0.x system.  These are the only systems for
  15. #                which string resources have been created.  You should also be running
  16. #                an application with a "Quit" menuitem in its "file" menu.
  17. #
  18. #    Conventions:    Global variables begin with a capital letter
  19. #
  20. #    Written by:    P Nagarajan and Jim Schneider
  21. #
  22. #    Copyright:    © 1991 by Apple Computer, Inc., all rights reserved.
  23. #
  24. #    Change History:
  25. #
  26. #         1/10/91   JAS        use string list resources
  27. #         8/3/89       naga        creation
  28. #
  29.  
  30.  
  31. # **************************************************************************************
  32. # Get the string list resource ID corresponding to the system_version string
  33. task get_str_list_ID(system_version) begin
  34.     global KANJI_STRS;
  35.     global US_STRS;
  36.     global NOT_FOUND;
  37.     
  38.     If (system_version[1]+system_version[2] = "J1") do             # it's Kanji system
  39.         the_str_List_ID := KANJI_STRS;
  40.     else If ((system_version[1]+system_version[2] = "6.")  or    # it's US 6.0.x system
  41.              (system_version[1]+system_version[2] = "7.")) do     # it's US 7.0.x system
  42.         the_str_list_ID := US_STRS;
  43.     else the_str_list_ID := NOT_FOUND;
  44.     return(the_str_list_ID);
  45. end;
  46.  
  47.  
  48. #####   EXECUTION STARTS HERE  ######
  49.  
  50. # set index into string list resource for "Quit" string
  51. Quit_str_index := 1; 
  52.  
  53. # set string list resource id constants
  54. US_STRS := 128;
  55. KANJI_STRS := 129;
  56. NOT_FOUND := -1;
  57.  
  58. match[system v:?System_version];                # get system version
  59. Str_list_id := get_str_list_ID(System_version);    # get the str list ID for the system version 
  60.  
  61. if (Str_list_id <> NOT_FOUND) do begin            # we have the string list
  62.     The_quit_str := getIndString(Str_list_id,Quit_str_index);     # get str from str list resource
  63.     select[menuItem t:The_quit_str m:[menu o:2]]!;                # select the menuitem    
  64. end;
  65. else begin    # string list not found
  66.     println 'String list for this system not found';
  67. end;